﻿''' <summary>
''' UV
''' </summary>
''' <remarks></remarks>
Class KOJulia
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "JULIA"
        Armee = Armeen.PF.ToString
        Musik = "Julia"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 5
                SpezialgabeKosten = 5
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 5
                SpezialgabeKosten = 5
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 5
                SpezialgabeKosten = 5
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 2
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If OhneFunktion = False Then
            SchockEnemys(50) '50% der Feinde Schocken
            BackbufferSpiel.AddAnimation("SCREENFLASH", 2, New Point, True, ObjektSpielfeld.TopLayer)
        End If
        GabeEingesetzt()
    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 1
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectShockEnemys(50))
                Return P
            Case 2
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectEarnMoney(50))
                Return P
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub KOLaden()
        OffensivStaerke = New Feuerkrafttabelle75
        FeuerVerlustbeiKP = False 'Tja auch eine unfaire Sache
        GegenFeuerkraft = 0.9#
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                If OhneFunktion = False Then
                    SchockEnemys(50) '50% der Feinde Schocken
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 2, New Point, True, ObjektSpielfeld.TopLayer)
                End If
                GabeEingesetzt()
            Case CommanderWarsGameModi.AdvanceWarsDC
                If OhneFunktion = False Then
                    SchockEnemys(50) '50% der Feinde Schocken
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 2, New Point, True, ObjektSpielfeld.TopLayer)
                End If
                GabeEingesetzt()
            Case Else
                If OhneFunktion = False Then
                    EnemyBattle()
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 2, New Point, True, ObjektSpielfeld.TopLayer)
                End If
                GabeEingesetzt()
        End Select

    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub



End Class

Public Class KOBeschreibungJulia
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Julia"
        Fein = "Morgenzeitung"
        Nein = "Comicteil"
        Beschreibung = New String() {"Julia manipuliert", "die Medien, um", "ihren Willen zu", "verbreiten."}
        Stil = New String() {"Truppen haben geringere", "Feuerkraft verlieren aber keine", "bei TP verlust."}
        Gabebeschreibung = New String() {"Feinde hoeren auf Julia,", "wodurch sich die", "haelfte der feindlichen", "Truppen nicht bewegen koennen."}
        SpezialgabeBeschreibung = New String() {"Nahkampftruppen lassen sich", "von Julia beeinflussen", "und greifen sich untereinander", "an und koennen sich dann nicht", "mehr bewegen."}
        GabeKosten = 5
        Spezialgabekosten = 5
        Gaben = New String() {"Propaganda", "Propaganda Ministerium"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"Eure Niederlage ist die morgige Ueberschrift!" _
                                    , "Ich erhalte keine Neuigkeiten. Ich mache die Neuigkeiten." _
                                    , "Startet die Unterdrueckung." _
                                    , "Ich bin die Stimme der Menschen." _
                                    , "Mal sehen wie zerstritten eure Bevoelkerung ist." _
                                    , "Ihr seid willkommen unsere Ideen zu verbreiten."}
        Siegsaetze = New String() {"Der Beweis unserer Macht wird euch Ewig im Gedaechtnis bleiben." _
                                , "Ihr seid Narren zu versuchen uns zu besiegen." _
                                , "Dieser Sieg wird uns weitere Staedte bringen."}
        Tauschsaetze = New String() {"Mein Wille ist eurer." _
                                    , "Ich befehle euch zu schreien."}
        Doppelgabesaetze = New DoppelGabesatz() {}
        Niederlagesaetze = New String() {"Verbeitet, das wir einen glorreichen Sieg errungen haben.", _
                                     "Ihr moegt glauben ihr habt gewonnen. Doch ich sage ihr habt verloren."}
    End Sub
End Class
